Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано

Інформація про роботу

Рік:
2010
Тип роботи:
Звіт
Предмет:
Об’єктно-орієнтоване програмування
Група:
КН-30

Завантажити

2

Частина тексту файла

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка» Кафедра АСУ Звіт до лабораторної роботи №8 з курсу “Об'єктно орієнтоване програмування” Варіант 8 Львів 2010 Тема: Створення ужитку з використанням WEB-технологій Мета роботи: Вивчення можливостей системи програмування Delphi 5 по створенню динамічних HTML-сторінок. Завдання Створити Web-ужиток який формує динамічні HTML-сторінки для виконання наступних задач: Індивідуальне завдання: Визначення чи число є простим. Текст програми: unit Unit1; interface uses SysUtils, Classes, HTTPApp, HTTPProd, IniFiles; type TWebModule1 = class(TWebModule) PageProducer1: TPageProducer; procedure WebModule1WebActionItem1Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings; var ReplaceText: String); private { Private declarations } function IsSimple(st:string):boolean; public { Public declarations } end; var WebModule1: TWebModule1; Answer:string; implementation {$R *.dfm} function TWebModule1.IsSimple(st:string):boolean; var i,n:integer; begin Result:=false; if length(st)=0 then exit; n:=StrToInt(st); for i:=2 to n div 2 do if n mod i = 0 then exit; Result:=true; end; procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin if IsSimple(Request.ContentFields.Values['num']) then Answer:='Число являється простим' else Answer:='Число не просте, а золоте!'; Response.Content:=PageProducer1.Content; Handled:=True; end; procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings; var ReplaceText: String); begin if (TagString='TNum') then ReplaceText:=Answer; end; end. object WebModule1: TWebModule1 OldCreateOrder = False Actions = < item Default = True Name = 'WebActionItem1' OnAction = WebModule1WebActionItem1Action end> Left = 192 Top = 138 Height = 150 Width = 215 object PageProducer1: TPageProducer HTMLDoc.Strings = ( '<html>' '<head>' '<title>'#1060#1077#1076#1086#1088#1095#1072#1082' '#1040#1085#1076#1088#1110#1081'</title>' '</head>' '<body>' '<p>'#1047#1072#1087#1080#1096'i'#1090#1100' '#1091' '#1074'i'#1082#1085'i '#1095#1080#1089#1083#1086' '#1076#1083#1103' '#1087#1077#1088#1077#1074#1086#1076#1091 '<form method="POST" action="http://127.0.0.1/cgi-bin/mult.exe">' '<table>' '<tr><td><input type="text" name="num" maxlength="8" size="10"</t' + 'd>' '<td><input type="submit" name="post" value="'#1055#1077#1088#1077#1074#1077#1089#1090#1080'"></td>' '</tr>' '</table>' '<#TNum>' '</form>' '</body>' '</html>') OnHTMLTag = PageProducer1HTMLTag Left = 40 Top = 16 end end program mult; {$APPTYPE CONSOLE} uses WebBroker, CGIApp, Unit1 in 'Unit1.pas' {WebModule1: TWebModule}; {$R *.res} begin Application.Initialize; Application.CreateForm(TWebModule1, WebModule1); Application.Run; end. Скріншоти роботи програми  Висновок: На даній лабораторній роботі я вивчав можливості системи програмування Delphi 5 по створенню динамічних HTML-сторінок.
Звіт Об’єктно-орієнтоване програмування
Антиботан аватар за замовчуванням

01.01.1970 03:01

Копіювати посилання
Поскаржитись

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
поділитись
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше
Які роботи дозволено додавати до архіву?

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Відгукнутись

10

Новини

Вхід на сайт

Забули пароль?
Ще не зареєстровані? Зареєструватися

Поскаржитися на роботу

В полі повідомлення будь-ласка опишіть причину, яка спонукала Вас поскаржитися на роботу.

Лише залоговані користувачі можуть надсилати скарги на файли адміністрації архіву!